home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / rhtool2.zip / TVOBJECT.PAS < prev    next >
Pascal/Delphi Source File  |  1993-07-20  |  4KB  |  41 lines
  1. {*
  2. *
  3. *   Copyright (c) 1992,93 by Richard W. Hansen
  4. *
  5. *   This source code will compile.
  6. *   Full source code available to registered users.
  7. *
  8. *}
  9. (* This file was mangled by Mangler 1.10 (c) Copyright 1993 by Berend de Boer *)
  10.  UNIT TVOBJECT ;{$B+} {$X+} {$V-} {$I TVDEFS.INC} INTERFACE USES TVSTRING , OBJECTS ;TYPE PBXOBJECT =^TBXOBJECT ;
  11. TBXOBJECT =OBJECT (TOBJECT)FUNCTION GETTEXT (MAXLEN :INTEGER ):STRING ;VIRTUAL;END ;PBXSELECTOBJECT =^TBXSELECTOBJECT ;
  12. TBXSELECTOBJECT =OBJECT (TBXOBJECT)SELECTED :BOOLEAN ;CONSTRUCTOR LOAD (VAR S :TSTREAM );FUNCTION GETSELECT :BOOLEAN ;
  13. VIRTUAL;PROCEDURE SETSELECT (ASTATE :BOOLEAN );VIRTUAL;PROCEDURE STORE (VAR S :TSTREAM );END ;
  14. PBXSELECTSTR =^TBXSELECTSTR ;TBXSELECTSTR =OBJECT (TBXSELECTOBJECT)ST :PSTRING ;CONSTRUCTOR INIT (CONST ASTRING :STRING
  15. );CONSTRUCTOR LOAD (VAR S :TSTREAM );DESTRUCTOR DONE ;VIRTUAL;FUNCTION GETTEXT (MAXLEN :INTEGER ):STRING ;VIRTUAL;
  16. PROCEDURE STORE (VAR S :TSTREAM );END ;PBXCOLLECTION =^TBXCOLLECTION ;
  17. TBXCOLLECTION =OBJECT (TSORTEDCOLLECTION)FUNCTION COMPARE (KEY1 ,KEY2:POINTER ):INTEGER ;VIRTUAL;END ;
  18. PBXUNSORTEDSTRINGCOLLECTION =^TBXUNSORTEDSTRINGCOLLECTION ;
  19. TBXUNSORTEDSTRINGCOLLECTION =OBJECT (TSTRINGCOLLECTION)PROCEDURE INSERT (ITEM :POINTER );VIRTUAL;END ;
  20. PROCEDURE REGISTERTVOBJECT ;CONST RBXSELECTOBJECT :TSTREAMREC =(OBJTYPE :5150 ;
  21. VMTLINK :OFS (TYPEOF (TBXSELECTOBJECT )^);LOAD :@ TBXSELECTOBJECT . LOAD ;STORE :@ TBXSELECTOBJECT . STORE );
  22. CONST RBXSELECTSTR :TSTREAMREC =(OBJTYPE :5151 ;VMTLINK :OFS (TYPEOF (TBXSELECTSTR )^);LOAD :@ TBXSELECTSTR . LOAD ;
  23. STORE :@ TBXSELECTSTR . STORE );CONST RBXCOLLECTION :TSTREAMREC =(OBJTYPE :5152 ;
  24. VMTLINK :OFS (TYPEOF (TBXCOLLECTION )^);LOAD :@ TBXCOLLECTION . LOAD ;STORE :@ TBXCOLLECTION . STORE );
  25. CONST RBXUNSORTEDSTRINGCOLLECTION :TSTREAMREC =(OBJTYPE :5153 ;VMTLINK :OFS (TYPEOF (TBXUNSORTEDSTRINGCOLLECTION )^);
  26. LOAD :@ TBXUNSORTEDSTRINGCOLLECTION . LOAD ;STORE :@ TBXUNSORTEDSTRINGCOLLECTION . STORE );
  27. IMPLEMENTATION FUNCTION TBXOBJECT.GETTEXT (MAXLEN:INTEGER):STRING ;BEGIN RUNERROR (211 );END ;
  28. CONSTRUCTOR TBXSELECTOBJECT.LOAD (VAR S:TSTREAM);BEGIN S.READ (SELECTED , SIZEOF (BOOLEAN ));END ;
  29. FUNCTION TBXSELECTOBJECT.GETSELECT :BOOLEAN ;BEGIN GETSELECT := SELECTED ;END ;PROCEDURE TBXSELECTOBJECT.SETSELECT
  30. (ASTATE:BOOLEAN);BEGIN SELECTED := ASTATE ;END ;PROCEDURE TBXSELECTOBJECT.STORE (VAR S:TSTREAM);BEGIN S.WRITE (SELECTED ,
  31. SIZEOF (BOOLEAN ));END ;CONSTRUCTOR TBXSELECTSTR.INIT (CONST ASTRING:STRING );BEGIN INHERITED INIT;ST := NEWSTR (ASTRING
  32. );END ;CONSTRUCTOR TBXSELECTSTR.LOAD (VAR S:TSTREAM);BEGIN INHERITED LOAD(S );ST := S.READSTR ;END ;
  33. DESTRUCTOR TBXSELECTSTR.DONE ;BEGIN DISPOSESTR (ST );INHERITED DONE;END ;FUNCTION TBXSELECTSTR.GETTEXT
  34. (MAXLEN:INTEGER):STRING ;BEGIN GETTEXT := FTRUNCATESTR (ST ^, MAXLEN );END ;PROCEDURE TBXSELECTSTR.STORE (VAR S:TSTREAM);
  35. BEGIN INHERITED STORE(S );S.WRITESTR (ST );END ;FUNCTION TBXCOLLECTION.COMPARE (KEY1,KEY2:POINTER):INTEGER ;
  36. VAR Ol00lOl:STRING ;Ol0O000:STRING ;BEGIN Ol00lOl := PBXOBJECT (KEY1 )^. GETTEXT (255 );Ol0O000 := PBXOBJECT (KEY2 )^.
  37. GETTEXT (255 );IF (Ol00lOl < Ol0O000 )THEN COMPARE := - 1 ELSE IF (Ol00lOl > Ol0O000 )THEN COMPARE := 1 ELSE COMPARE := 0
  38. ;END ;PROCEDURE TBXUNSORTEDSTRINGCOLLECTION.INSERT (ITEM:POINTER);BEGIN ATINSERT (COUNT , ITEM );END ;
  39. PROCEDURE REGISTERTVOBJECT ;BEGIN REGISTERTYPE (RBXSELECTOBJECT );REGISTERTYPE (RBXSELECTSTR );REGISTERTYPE
  40. (RBXCOLLECTION );REGISTERTYPE (RBXUNSORTEDSTRINGCOLLECTION );END ;END .
  41.